home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIHTTP / WEBSRCH / SPLASH.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-07  |  1.1 KB  |  41 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   4500
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1665
  7.    ClientWidth     =   7545
  8.    ControlBox      =   0   'False
  9.    Height          =   4905
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   "Splash.frx":0000
  15.    ScaleHeight     =   4500
  16.    ScaleWidth      =   7545
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1320
  19.    Width           =   7665
  20.    Begin VB.Timer SplashTimer 
  21.       Interval        =   1500
  22.       Left            =   6840
  23.       Top             =   360
  24.    End
  25. Attribute VB_Name = "frmSplash"
  26. Attribute VB_Creatable = False
  27. Attribute VB_Exposed = False
  28. Option Explicit
  29. Private Sub Form_Load()
  30.   '  make them wait a bit
  31.   Screen.MousePointer = 11
  32.   '  center form on the screen
  33.   Me.Top = (Screen.Height - Me.Height) \ 2
  34.   Me.Left = (Screen.Width - Me.Width) \ 2
  35. End Sub
  36. Private Sub SplashTimer_Timer()
  37.   SplashTimer.Enabled = False
  38.   Load frmMain
  39.   frmMain.Show
  40. End Sub
  41.